home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / pcsuni1.zip / VRS502.ZIP / VRS-M402.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-04-06  |  3KB  |  170 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     Goto LABEL001
  27.     End
  28.     If (0 == 0) STRING001 = "NO"
  29.     If (0 == 1) STRING001 = "YES"
  30.  
  31.     EndFunc
  32.  
  33.     :LABEL001
  34.     STRING003 = String(PcbNode())
  35.     If (PcbNode() == 0) STRING003 = "A"
  36.     STRING004 = GetEnv(STRING003 + "RECNO")
  37.     STRING004 = ToInteger(STRING004)
  38.     DOpen 0, PPEPath() + "USER.DBF", 0
  39.     DGo 0, STRING004
  40.     :LABEL002
  41.     Newline
  42.     If (DGet(0, "CASH") < DGet(0, "LEVEL") * 100) Then
  43.         PrintLn "@X0CYou don't have enough cash on hand to rent a chamber!@X0F"
  44.         PrintLn 
  45.         Call PPEPath() + "VRS-M19.PPE"
  46.     Else
  47.         Cls
  48.         PrintLn "@X0ASleeping Chamber Stats for ", Year(Date()), ".", Day(Date()), ".", Month(Date())
  49.         PrintLn 
  50.         PrintLn "@X02Base Chamber Deaths@X03············@X09", Random(99)
  51.         PrintLn "@X02Secure Chamber Deaths@X03··········@X0E", Random(50)
  52.         PrintLn "@X02Impenetrable Chamber Deaths@X03····@X8C", Random(10), "@X0F"
  53.         PrintLn 
  54.         If (DGet(0, "CASH") > DGet(0, "LEVEL") * 250) Then
  55.             PrintLn "@X0EConsulting the roster of available sleeping chambers you consider if@X0F "
  56.             PrintLn "@X0Ethe higher cost of the more secure tube is your best bet for not waking@X0F"
  57.             PrintLn "@X0Eup dead. You have ", Trim(DGet(0, "CASH"), " "), " credits on hand, why be cheap?@X0F"
  58.         Endif
  59.         PrintLn 
  60.         If (DGet(0, "CASH") > DGet(0, "LEVEL") * 100) PrintLn "                @X0A(@X0DB@X0A)@X02ase Level Chamber     @X0A", DGet(0, "LEVEL") * 100, "@POS:48@@X02CR / Night"
  61.         If (DGet(0, "CASH") > DGet(0, "LEVEL") * 250) PrintLn "                @X0A(@X0DS@X0A)@X02ecure Chamber         @X0A", DGet(0, "LEVEL") * 250, "@POS:48@@X02CR / Night"
  62.         If (DGet(0, "CASH") > DGet(0, "LEVEL") * 1000) PrintLn "                @X0A(@X0DI@X0A)@X02mpenetrable Chamber   @X0A", DGet(0, "LEVEL") * 1000, "@POS:48@@X02CR / Night"
  63.         PrintLn "                @X0A(@X0DQ@X0A)@X02uit back one menu"
  64.         PrintLn 
  65.         InputStr "@X0AYour Choice Soldier @X02> _", STRING002, 10, 1, "BSIQ", 0 + 8
  66.         Select Case (STRING002)
  67.             Case ""
  68.                 Goto LABEL002
  69.             Case "B"
  70.                 Backup 80
  71.                 ClrEol
  72.                 PrintLn "@X0EQuite a frugal choice there.  Good luck, and sleep light!@X0F"
  73.                 DPut 0, "CASH", DGet(0, "CASH") - DGet(0, "LEVEL") * 100
  74.                 DPut 0, "VITALITY", "B"
  75.                 Delay (4 * 182) / 10
  76.                 Goto LABEL003
  77.             Case "S"
  78.                 Backup 80
  79.                 ClrEol
  80.                 PrintLn "@X0EBetter to be safe than sorry!@X0F"
  81.                 DPut 0, "CASH", DGet(0, "CASH") - DGet(0, "LEVEL") * 250
  82.                 DPut 0, "VITALITY", "S"
  83.                 Delay (4 * 182) / 10
  84.                 Goto LABEL003
  85.             Case "I"
  86.                 Backup 80
  87.                 ClrEol
  88.                 PrintLn "@X0EIf you have the money, isn't your security worth it?@X0F"
  89.                 DPut 0, "CASH", DGet(0, "CASH") - DGet(0, "LEVEL") * 1000
  90.                 DPut 0, "VITALITY", "I"
  91.                 Delay (4 * 182) / 10
  92.                 Goto LABEL003
  93.             Case "Q"
  94.                 Goto LABEL003
  95.             Endif
  96.     End Select
  97.     :LABEL003
  98.     DCloseAll
  99.     End
  100.  
  101. ;------------------------------------------------------------------------------
  102. ;
  103. ; Usage report (before postprocessing)
  104. ;
  105. ; ■ Statements used :
  106. ;
  107. ;    2       End
  108. ;    1       Cls
  109. ;    3       ClrEol
  110. ;    18      Goto 
  111. ;    6       Let 
  112. ;    20      PrintLn 
  113. ;    13      If 
  114. ;    1       InputStr 
  115. ;    3       Delay 
  116. ;    1       Newline
  117. ;    1       Call 
  118. ;    3       Backup 
  119. ;    1       EndFunc
  120. ;    1       DOpen 
  121. ;    1       DCloseAll
  122. ;    1       DGo 
  123. ;    6       DPut 
  124. ;
  125. ;
  126. ; ■ Functions used :
  127. ;
  128. ;    14      *
  129. ;    3       /
  130. ;    4       +
  131. ;    3       -
  132. ;    8       ==
  133. ;    1       <
  134. ;    4       >
  135. ;    7       !
  136. ;    1       Trim()
  137. ;    3       Random()
  138. ;    3       Date()
  139. ;    1       Year()
  140. ;    1       Month()
  141. ;    1       Day()
  142. ;    1       String()
  143. ;    2       PPEPath()
  144. ;    2       PcbNode()
  145. ;    1       GetEnv()
  146. ;    1       ToInteger()
  147. ;    20      DGet()
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Analysis flags : C
  152. ;
  153. ; C - Call child PPE ■ 3
  154. ;     This is usually normal, but may be a tricky way to launch some
  155. ;     sysop-only commands.
  156. ;     ■ Search for : CALL
  157. ;
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Postprocessing report
  161. ;
  162. ;    0       For/Next
  163. ;    0       While/EndWhile
  164. ;    2       If/Then or If/Then/Else
  165. ;    1       Select Case
  166. ;
  167. ;------------------------------------------------------------------------------
  168. ;                 AEGiS Corp - Break the routines, code against the machines!
  169. ;------------------------------------------------------------------------------
  170.